﻿Public Class UserLog
    Public Shared Sub InsertUserLog(ByVal user As UserlogInfo)
        CmdPro.Begin()
        Try
            CmdPro.Parameters("UserId") = user.UserId
            CmdPro.Parameters("@Date") = user.MyDate
            CmdPro.Parameters("@Time") = user.Time
            CmdPro.Parameters("Active") = user.Active
            user.UserId = CmdPro.ExecuteNonQuery("InsertUserLog", "@id")
            CmdPro.Commit()
        Catch ex As Exception
            CmdPro.Rollback()
            MsgBox(ex.Message)
        End Try

    End Sub
End Class
